home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 80 / CD Actual 80 Julio-Agosto 2003.iso / Linux / LinuxGazette / lg / issue25 / tkdial < prev    next >
Encoding:
Tcl/Tk script  |  2002-08-14  |  3.4 KB  |  137 lines
  1. #!/usr/bin/wish -f
  2. #
  3. # Linux dialer. Shows on/off line, time on-line, and
  4. # pppd process identifier.
  5. #
  6. # (c) 1998 (GPL) Martin Vermeer
  7. #
  8. # User configurable:
  9. #----------------------------------------
  10. set path(pidof) /sbin/pidof
  11. set path(pppd) /usr/sbin/pppd
  12. set path(whoami) /usr/bin/whoami)
  13. #----------------------------------------
  14. # End user config
  15.  
  16. set seconds 0
  17. set minutes 0
  18. label  .counter -text "0:00" -relief sunken
  19.  
  20. ## Test for root.
  21. #
  22. ## Not needed if pppd suid root and /etc/ppp files 
  23. ## "options" and connect/disconnect scripts 
  24. ## (but NOT the "secrets" file!!! world readable
  25. ## (or readable to a group you belong to)
  26. #
  27. # catch "exec $path(whoami)" result
  28. # if {$result != "root"} {
  29. #     set labeltext "Run me as ROOT!"
  30. #     after 10000 exit 
  31. #}
  32.  
  33. # showpid -- routine to get and show process id, keep track
  34. #            of pppd link up/down status, and reset time
  35. #            counter if down
  36. #
  37. proc showpid {} {
  38.     global pid labeltext status seconds minutes path
  39.  
  40.     if [catch "exec $path(pidof) pppd" pid] {set pid -1}
  41.     if {$pid != -1} {
  42.         set labeltext "Link pid: ${pid}"
  43.         set status 1
  44.     } else {
  45.         set labeltext "Link Down"
  46.         set status 0; set seconds 0; set minutes 0
  47.     } 
  48. }
  49.  
  50. # tick -- routine to increment clock by 5 seconds every
  51. #         5 seconds, and minutes every minute.
  52. #         Don't be on-line over an hour :-)
  53. #
  54. proc tick {} {
  55.     global minutes seconds status pid labeltext
  56.     if $status {
  57.         after 5000 tick
  58.         incr seconds 5
  59.         if {$seconds >= 60} { set seconds 0; incr minutes }
  60.     } 
  61.     after 5000 showpid
  62.     .counter config -text [format "%d:%02d" $minutes $seconds]
  63. }
  64.  
  65. # 
  66. # Find out if there was an old pppd process running:
  67. #
  68. if [catch "exec $path(pidof) pppd" pid] {set pid -1}
  69. if {$pid != -1} {
  70.     set labeltext "Old Link ${pid}"
  71.     set status 1
  72.     tick
  73. } else {
  74.     set labeltext "Link Down"
  75.     set status 0
  76. }
  77.  
  78. #
  79. # Downcmd -- command to bring down the pppd link
  80. #
  81. proc Downcmd {} {
  82. global status path
  83.     # Get the pids of pppd processes into res:
  84.     if [catch "exec $path(pidof) pppd" res] {set res -1} 
  85.     if {$res != -1} {
  86.         # Some pppd process running; go get'em
  87.         catch "exec kill -9 $res" result
  88.         # Debug code:
  89.         # puts "pid=$res result=$result"
  90.     }
  91.     # Necessary to update $status to realistic value:
  92.     showpid
  93.     # await kill command to take effect:
  94.     while {$status == 1} showpid   
  95.     # don't come out until really down
  96. }
  97.  
  98. # Upcmd -- Command to bring up the pppd link
  99. #          and start the clock ticking
  100. #
  101. proc Upcmd {} {
  102.     global status path seconds minutes
  103.     # start up pppd:
  104.     if [catch "exec $path(pidof) pppd" res] {set res -1}
  105.     if {$res == -1} {
  106.         # no pppd process running yet; start one
  107.         catch "exec /usr/sbin/pppd"
  108.         set status 1
  109.     # start clock running
  110.     set seconds 0
  111.         set minutes 0
  112.         tick
  113.     }
  114.     if {$res > 0} { 
  115.         set labeltext "Old Link: ${res}" 
  116.         set status 1
  117.     }
  118. }
  119.  
  120. #
  121. # Define the widgets:
  122. #
  123. label        .name -textvariable labeltext 
  124. radiobutton  .up   -text "Up"   -variable status -value 1 -command Upcmd
  125. radiobutton  .down -text "Down" -variable status -value 0 -command Downcmd
  126. button       .quit -text "Quit" -command exit
  127.  
  128. #
  129. # Lay out grid geometry:
  130. #
  131. grid .name     -row 0 -column 0 -columnspan 2 -sticky "ew"
  132. grid .up       -row 1 -column 1 -sticky "w"
  133. grid .down     -row 2 -column 1 -sticky "w"
  134. grid .quit     -row 2 -column 0 
  135. grid .counter  -row 1 -column 0 -sticky "ns"
  136.  
  137.